home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
v7n11.arc
/
LN711.ARC
/
PAINT.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-05-02
|
395b
|
11 lines
SCREEN 1,0
LINE (30,30)-(170,170), 3 'draw white diagonal line
LINE (50,50)-(150,150), 3, B 'draw white box
PAINT (90,100), 2, 3 'attempt to paint box magenta
SCREEN 1,0
LINE (30,30)-(170,170), 1 'draw cyan diagonal line
LINE (50,50)-(150,150), 3, B 'draw white box
PAINT (90,100), 2, 3 'paint entire box magenta